object FormBorda: TFormBorda
  Left = 454
  Top = 421
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Bordas'
  ClientHeight = 174
  ClientWidth = 298
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridBorda: TDBGrid
    Left = 0
    Top = 0
    Width = 281
    Height = 113
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyPress = DBGridBordaKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'nm'
        ReadOnly = True
        Title.Caption = 'BORDA'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'vl_borda'
        Title.Caption = 'VALOR'
        Width = 124
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 104
    Top = 128
    Width = 75
    Height = 25
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object QueryBorda: TQuery
    CachedUpdates = True
    DatabaseName = 'DBPizza'
    RequestLive = True
    SQL.Strings = (
      'select id,nm,vl_borda from borda where id > 0')
    UpdateObject = UpdateSQL1
    Left = 104
    Top = 96
    object QueryBordanm: TStringField
      FieldName = 'nm'
      Origin = 'DBPIZZA.borda.nm'
      Size = 8
    end
    object QueryBordavl_borda: TFloatField
      FieldName = 'vl_borda'
      Origin = 'DBPIZZA.borda.vl_borda'
      OnGetText = QueryBordavl_bordaGetText
    end
    object QueryBordaid: TIntegerField
      FieldName = 'id'
      Origin = 'DBPIZZA.borda.id'
    end
  end
  object DataSource1: TDataSource
    DataSet = QueryBorda
    Left = 144
    Top = 64
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update borda'
      'set'
      '  vl_borda = :vl_borda'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into borda'
      '  (vl_borda)'
      'values'
      '  (:vl_borda)')
    DeleteSQL.Strings = (
      'delete from borda'
      'where'
      '  ID = :OLD_ID')
    Left = 224
    Top = 64
  end
  object QueryAux: TQuery
    DatabaseName = 'DBPizza'
    Left = 328
    Top = 72
  end
end
